0 IFMMTHEN60000
5 GOSUB60100:CLR
10 PRINT"[147]         64 MODE NUMERIC KEYPAD"
20 PRINT"               BY IAN ADAM"
30 PRINT"     THIS PROGRAM ENABLES THE C128'S"
32 PRINT"NUMERIC KEYPAD WHEN IN 64 MODE. THIS"
34 PRINT"PROGRAM IS TO BE RUN ON A COMMODORE 128"
36 PRINT"ONLY! COMMODORE 64 USERS SHOULD NOT"
38 PRINT"CONTINUE WITH THIS PROGRAM."
40 PRINT"DO YOU WISH TO CONTINUE? (Y/N)"
42 A=PEEK(203):IFA<>25ANDA<>39THEN42
44 IFA=39THEN60000
100 FORI=50944TO51198
110 READA:X=X+A
120 POKEI,A
130 NEXT
140 IFX<>31976THEN PRINT"DATA ERROR":STOP
150 :
160 SYS 199*256
170 PRINT"[145]THE 128'S KEYPAD HAS BEEN ENABLED."
180 PRINT"ALL KEYS ARE ACTIVE EXCEPT THE 40/80    DISPLAY KEY."
190 PRINT"CAPS LOCK: ALPHABET ONLY IN CAPITALS"
200 PRINT"LINE FEED: IGNORE LINE CURSOR IS ON"
210 PRINT"NO SCROLL: FREEZE ALL ACTIVITY"
215 PRINT"TO RETURN TO LOADSTAR, ENTER:"
216 PRINT"GOTO LOADSTAR"
220 POKE198,.:MM=1:END
230 :
1000 DATA120,169,21,141,20,3,169,199,141,21,3,141,144,2,169,191,141,143
1010 DATA2,88,96,32,234,255,160,0,140,47,208,136,140,0,220,204,1,220
1020 DATA208,6,140,47,208,76,52,234,132,203,200,140,141,2,169,251,141,47
1030 DATA208,72,162,8,173,1,220,205,1,220,208,248,74,144,14,200,202,208
1040 DATA249,56,104,106,141,47,208,176,230,144,214,104,185,231,199,133,203
1050 DATA48,18,201,64,144,9,162,1,142,141,2,41,63,133,203,32,72,235,208
1060 DATA53,168,201,255,240,21,197,197,240,44,133,197,185,0,199,72,41,127
1070 DATA32,53,235,200,104,16,243,48,27,200,173,32,208,72,32,165,199,232
1080 DATA208,250,32,165,199,232,240,250,32,165,199,232,208,250,104,141,32
1090 DATA208,76,126,234,140,47,208,140,0,220,136,174,1,220,236,1,220,208
1100 DATA248,140,47,208,140,0,220,200,238,32,208,96,36,1,112,20,164
1110 DATA203,177,245,201,91,176,12,201,65,144,8,173,141,2,9,1,141,141,2,76
1120 DATA72,235,65,76,212,69,83,195,72,69,76,208,84,65,194,218,35,44
1130 DATA71,7,66,2,255,221,40,43,65,1,19,32,8,224,27,16,228,59,11,24,56
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENPOKE198,.:END
60020 SYS65418:POKE655,72:POKE656,235:LOAD"HELLO CONNECT",8
60100 POKE53280,14:POKE53281,14
60110 PRINT"[147][142][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"         LOADSTAR PRESENTS:"
60160 PRINT"                               "
60170 PRINT"        64 MODE NUMERIC KEYPAD  "
60180 PRINT"                                "
60190 PRINT"              BY IAN ADAM       "
60200 PRINT"                                "
60210 PRINT"             COPYRIGHT 1987     "
60220 PRINT"                                "
60230 PRINT"                                "
60240 PRINT"       PRESS SPACE TO CONTINUE."
60250 A=PEEK(203):IFA<>60THEN60250
60260 RETURN